﻿Public Class DMPhanHe

      Public Sub New()
        InitializeComponent()
        Me.setObj(Me.PCV_CLINICDataSet_Don, Me.PCV_CLINICDataSet_Don.DMPhanHe, Me.DMPhanHeBindingSource, Me.TableAdapterManager, DMPhanHeTableAdapter, MaITextEdit)
    End Sub

    Private Sub DMPhanHe_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'PCV_CLINICDataSet_Don.DMPhanHe' table. You can move, or remove it, as needed.
        Me.DMPhanHeTableAdapter.Fill(Me.PCV_CLINICDataSet_Don.DMPhanHe)

    End Sub

    Private Shadows Sub BarButtonItemBaoCao_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemBaoCao.ItemClick
        Dim report As Rp_DMPhanHe = New Rp_DMPhanHe
        report.ShowRibbonPreview()
    End Sub
End Class
